home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / mouse.bas < prev    next >
BASIC Source File  |  1992-05-06  |  137b  |  8 lines

  1. 4     scnclr
  2. 5     pena 2
  3. 6     peno 1
  4. 10    ask mouse x%, y%, b%
  5. 15    if b% = 0 goto 10
  6. 20    box(x%-5,y%-5;x%+5,y%+5),1
  7. 30    goto 10
  8.